home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- global gLocLabel
- go(label(gLocLabel))
- end
-
- on idle
- global g1erSprLoc, gSurvolPrec, gSurvolAct
- if rollOver(g1erSprLoc) then
- set gSurvolAct to g1erSprLoc
- else
- if rollOver(g1erSprLoc + 1) then
- set gSurvolAct to g1erSprLoc + 1
- else
- set gSurvolAct to 0
- end if
- end if
- if gSurvolAct <> gSurvolPrec then
- if gSurvolAct <> 0 then
- curseur(1)
- else
- curseur(-1)
- end if
- set gSurvolPrec to gSurvolAct
- end if
- end
-